TYPE 1 - WRITE A FILE 

2 - REM) fl FILE 

3 - EDIT fl FILE 

4 - SEARCH FOR fl FILE 
3 - END ? _ 



DATE - TVPE 'END' TO STOP 

NAME 

ADD 

CITY 

STATE 

ZIP 

ACCOUNT « 

AMOUNT 

IS THIS INFORMATION CORRECT 



JAN 86 
ANY CO. 

555 NO STREET 
COLUMBIA, 
6A 

33383 

567897 

23. 58 

<V/N) ? Y_ 



NEXT RECORD NUMBER m 12 BILL 3 

JAN 88 " 11 NC ] 
CUMBERLAND TRASH SERVICE, INC. 
P. 0. BOX 36836 
FAVETTEVILLE, NC 28383 
88888 $8 88 



NC 27689 
$8.88 



JAN 88 " 1 NC 3 

CAMERON-BROWN CO. 

4388 SIX FORKS RD. 

RALEIGH, 

94798 
DO YOU NEED A HARD COPY <V/N) 
TO MAKE A CHANGE <C> 

TO STOP <END) ? _ 
JAN 88 C 1 NC 3 
CAMERON-BROWN CO 
4388 SIX FORKS RD. 
RALEIGH, NC 27689 

94798 



THERE ARE 8 LINES OF DATA WHICH WOULD YOU LIKE TO CHANGE 
DATE NAME ADD CITY 

STATE ZIP ACC <#> AMOUNT 

TYPE 'END' TO RETURN TO MENU ACC 
NEW ACCOUNT ff 89765 
ANY MORE CHANGES TO THIS FILE <V/N> ? . 



JAN 88 ~ 1 NC 1 
CAMERON-BROWN CO. 
4388 SIX FORKS RD. 
RALEIGH, 

94798 



NC 27689 
$178. 67 



1888 REM * CHECKYTD * 

1818 REM * TRS-88 USERS GROUP - JAN 80 * 
1828 as PRINT: PRINT 

1638 CLEAR 6888: DIM D$<12), Ul$(25, 12), U2$(25, 12), 
U3$(25, 12), U4$<25, 12), U2<25) 
1848 X$»"$$t, ••#- ##" 
1050 FOR 1*1 TO 12:READ D$<I):NEXT I 
2888 PRINT: INPUT-STARTING MONTH - ";SM$: GOSUB 4810 
2828 PRINT :INPUT" ENDING MONTH - ";EM$:GOSUB 4858 
2848 PRINT: INPUT-CONSOLE <C> OR PRINTER <P) ";RY$ 
2858 IF RY$*"C" THEN CLS: PRINT: PRINT 
3888 FOR I*SN TO EM 
3818 CLOSE: OPEN "R",2,D$<I) 
3828 KEY?;«KEV"/i*l:J»J*l 
3030 PR7.»INT(<KEYJJ-l)/4)+l 
3048 SR2«KEY5J-4*<PR*-1) 
3858 FIELD 2, <<SR2-i>*58) AS Hl$, 5 AS Ul$, 7 AS U2$, 

8 AS U3$, 38 AS U4$ 
3860 GET 2,PRX 

3878 Ui$<J. I)«U1$:U2$<J, I)*U2$:U3$<J, I)-U3$:U4$(J, I)*U4$ 
3888 U2<J)*U2<J)+VAL<U2$<J, I)) 
3898 I2*I2+VAL<U2$<J, I>) 

3188 IF VAL<U1$<J, I))*0 THEN 3110 ELSE 3828 
3110 IF J>J1 THEN J1=J 
3120 J«0:KEV/<«0:NEXT I 
3130 IF RV$»"P- THEN 6000 
3148 GOTO 5888 

4888 DATA JAN, FEB, MAR, APR, MAV, JUN, JUL, AUG, SEP, OCT, NOV, DEC 
4818 FOR 1*1 TO 12 
4828 IF SM$-D$<I) THEN SM*I 
4838 NEXT I 
4848 RETURN 
4850 FOR 1*1 TO 12 
4060 IF EM$=D$<I> THEN EN* I 
4070 NEXT I 
4088 RETURN 
5888 FOR J=l TO Jl-1 

5818 PRINT U4$<J,1)TAB<32)USINGX$;U2(J)» 
5028 GOSUB 5848 
5838 NEXT J: GOTO 5888 
5848 FOR I*SM TO EH 
5058 IF VAL<U2$<J, I))*8 THEN RETURN 

5868 PRINTTAB<43) 10*0,1)1" "> D$<I)USINGX$; VAL<U2$<J, I» 
5878 NEXT I: RETURN 

5888 PRINT,," " 

5898 PRINT" TOTAL THROUGH ";D$<EM), USINGX$j 12 

5188 GOTO7880 

6880 FOR J*l TO Jl-i 

6810 LPRINT U4$<J,i)TAB(32)USINGX$;U2(J); 

6028 GOSUB 6858 

6830 LPRINT CHR$<138) 

6848 NEXT J: GOTO 6898 

6850 FOR I=SM TO EM 

6060 IF VAL<U2$<J, I)>=0 THEN RETURN 

6878 LPRINTTAB<45) U1$(J, I);" "J D$<I)USIN6X$; VAL(U2$<J, I)) 

6030 NEXT I . RETURN 

6090 LPRINT, , " " 

6188 LPRINT" TOTAL THROUGH "; D$<EM), USINGX$> 12 

7800 PRINT : INPUT "ANOTHER <V/N> -;VR$:IF VR$*"V THEN RUN 
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8060 


IF 


H*= 


•DATE 


8876 


IF 


H*« 


'NAME 


8080 


IF 


H*« 


'CITV 


8090 


IF 


H*= 


"ZIP" 


8100 


IF 


H*» 


"RCC" 



8030 PRINT, "ZIP", "RCC <#)" PRINT 

8040 PRINT " VOLI RRE SERRCHING FILE ";S*: PRINT 

8050 LINEINPUT "WHAT WOULD VOU LIKE TO FIND ";H*: 
PRINTS353, "INPUT THE "; 

' THEN fl=l H=l GOTO 8130 

' THEN B=l:H=2:GOTO 8158 

1 THEN Ol:H=3:G0T0 8170 
THEN D«1:H»4 GOTO 8190 
'RCC" THEN E=»l : H»5 : GOTO 8210 
8110 ON H GOTO 8148 , 8168 , 8180 , 8200 , 8220 
8120 GOTO 8010 
8130 LINEINPUT "DATE ";DT* 

8140 IF INSTR<DA*, DT*) THEN 7800 ELSE 6030 
8150 LINEINPUT "NRME "; NT* 

8160 IF INSTR<NR«, NT$) THEN 7000 ELSE 6030 
8170 LINEINPUT "CITV ",Cfl* 

8180 IF INSTR<CT», Cfl*) THEN 7000 ELSE 6030 
8190 LINEINPUT "ZIP "; ZT* 
8200 IF ZP*=ZT* THEN 7000 ELSE 6030 
8210 LINEINPUT "RCC » "; CC* 
8228 IF INSTR<RC», CC*) THEN 7000 ELSE 6030 
9008 SR«*LR-2*INT<<LR-l)/2>-l 
9010 FIELD 1, SR*127 RS D*, 7 RS DR*, 30 RS NR*, 35 RS RD*, 

20 RS CT*, 3 RS ST*, 5 RS ZP*, 20 RS RC*, 7 RS RM* 
9020 RETURN 

9030 LR«L0F<1)*2-5:IF LRO0 THEN LR=0 
9040 LR-LR+1 
9050 G0SU6 9100 
9060 ZP=VflL<ZP*> 

9879 IF ZP«0 THEN LR-LR-1 : RETURN 
9080 GOSUB 11000 
9090 GOTO 9040 

9100 GOSUB 9000 :PR»INT<<LR-l>/2)+l 
9110 GET 1, PR: RETURN 
10000 PRINT»30, STRING*<J1, 32); 
10010 PRINT194, STRING*<J2, 32); 
10020 PRINTH58, STRING* <J3, 32); 
10030 PRINT&222, STRING* <J4, 32); 
10040 PRINT9286, STRING* <J5, 32); 
10050 PRINT&350, STRING* <J6, 32); 
10860 PRINT&414, STRING* <J7, 32); 
10070 PRINT»478, STRING* <J8, 32) 
18080 RETURN 

11000 PRINT0721, OR*; CHR*<94), LR, ST*; CHR*<93> 
11018 PRINTt785, Nfi* 
11820 PRINT0849, RD* 
11030 PRINTt913, CT*; ST*; ZP* 

11840 PRINTf977,RC*; USING "**##*#. •#", VRL<CM«); 
11050 RETURN 

12080 LPRINT DR*;CHR*<91),LR;ST*, CHR*<93) 
12010 LPRINT NR* 
12020 LPRINT RD* 
12030 LPRINT CT*;ST*;ZP* 
12040 LPRINT RC* 

12050 IF W*-"R" THEN GOSUB 13000 
12060 LPRINT CHR*(138),CHR*<138) 
12070 RETURN 

13000 FOR 1=1 TO 7: LPRINT CHR*<138) NEXT I 
13010 RETURN 
14000 LPRINT NR* 



14010 LPRINT RD* 
14020 LPRINT CT*;ST*;ZP* 
14030 LPRINT "RCCOUNT « ",RC* 
14040 LPRINT CHR*<138), CHR*(138) 
14856 RETURN 



R 3840/*4 3858/* 3860/*4 3070/*4 3088/*4 3098/*3 3100/*4 

3110/*4 3120/*4 6000 8810 8060 

fll 5160/'* 5250/* 5350/'* 

R2 5178/* 5250/* 5350/* 

A3 5180/* 5250/* 5350/* 

R4 5190/* 5250/* 5350/* 

R5 5200/* 5260/* 5350/* 

R6 5210/* 5260/* 5350/* 

R7 5220/* 5260/* 5350/* 

R8 5238/* 5268/* 5350/* 

RC 3110/* 5260/* 5350/* 8228/* 9818/* 11040/* 12040/* 

14030/* 

RD 3070/* 5250/* 5350/* 9010/* 11020/* 12020/* 14010/* 

RM 3120/* 5260/* 5350/* 9010/* 

B 6006 8810 8870 

C 6000 8818 8888 

CR 8178/* 8180/* 

CC 8210/* 8220/* 

CH 5050/* 5060/* 5070/* 5088/* 5090/* 5100/* 5110/* 

5120/* 5130/* 5140/* 

CH 11040/* 

CT 3088/* 5250/* 5350/* 8188/* 9818/* 11838/* 12030/* 

14020/* 

D 6000 8010 8898 9810/* 

Dfl 3040/* 5250/* 5350/* 8148/* 9010/* 11000/* 12080/* 

DT 8138/* 8148/* 

E 6800 8010 8180 

H 6000 8858/* 8860 8060/* 8878 8070/* 8088 8080/* 8898 

8898/* 8180 8180/* 8118 
I 4188 4130 13880/2 
Jl 3040 10000 
.12 3060 18010 
J3 3070 10020 
J4 3080 10O30 
J5 3090 10040 
J6 3100 10O50 
J? 3110 10060 
J8 3120 18070 
L 4040 4050 4100 
LR 3000/2 3020 4010 5000 6018 6838/2 9800/2 9030/3 9040/2 

9070/2 9188 11800 12000 
N 1030 2040 2050 2088 4140 6010 
NR 3060/* 5250/* 5350/* 8160/* 9010/* 11010/* 12018/* 

14000/* 
NT 8158/* 8168/* 
PR 4800 5300 9100 9110 

S 1050/* 2060/* 3820/* 3090/* 4110/* 3040/* 
SR 9880 9010 
ST 3090/* 5260/* 5350/* 9010/* 11000/* 11030/* 12000/* 

12030/* 14020/* 
U 7848/* 7858/* 7868/* 7878/* 
X 1838 3138/* 3140/* 3150/* 5010 5360 
VN 5270/* 5290/* 
W 4820/* 4030/* 4040/* 12050/* 
ZP 3100/* 4070 4070/* 4080 5260/* 5320/2 5320/* 5350/* 

6050/2 6050/* 8280/* 9010/* 9060 9060/* 9070 11030/* 

12030/* 14020/* 
ZT 8190/* 8200/* 



T °S-« iJSEPS GP0i*> - NEWSLETTER - 

WNBfED i?7? VOLUME :.■ nlikc u - **£ :*i 



